home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Tele / S / Send Msg Proc.cpt / Send Msg.src < prev    next >
Text File  |  1988-10-22  |  1KB  |  63 lines
  1. ERASE ALL
  2. TYPE ^M
  3. PROMPT ?
  4. COPYINTO X$, Enter the CATEGORY # to enter the Message in?
  5. COPYINTO Y$, Valid Support Cat's are "3" for RRH & "5" for RR 10:
  6. QUERY1 A$
  7. TYPE SET 
  8. TYPE A$
  9. TYPE ^M
  10. PROMPT ?
  11. ERASE ALL
  12. COPYINTO X$, You need to select a topic, do you want a List
  13. COPYINTO Y$, of Topics for the selected category?
  14. QUERY3
  15. IF NO JUMPTO NEXT
  16. IF YES JUMPTO TOPIC
  17. :TOPIC
  18. TYPE TOP^M
  19. ALERT1 3 ?/JUMPTO CONT
  20. PROMPT 5 ?
  21. :CONT
  22. ERASE ALL
  23. COPYINTO X$, Enter the Topic # for the the Message from the List:
  24. QUERY1 A$
  25. TYPE REP 
  26. TYPE A$
  27. TYPE ^M
  28. PROMPT 1>
  29. ERASE ALL
  30. COPYINTO X$, Do you want to Upload this Message or type it in?
  31. COPYINTO Y$, Yes to upload, No to type the message:
  32. QUERY3
  33. IF NO JUMPTO END
  34. IF YES JUMPTO UPLOAD
  35. :NEXT
  36. COPYINTO X$, Enter the Topic # for the the Message:
  37. QUERY1 A$
  38. TYPE REP 
  39. TYPE A$
  40. TYPE ^M
  41. PROMPT 1>
  42. ERASE ALL
  43. COPYINTO X$, Do you want to Upload this Message or type it in?
  44. COPYINTO Y$, Yes to upload, No to type the message:
  45. QUERY3
  46. IF NO JUMPTO END
  47. IF YES JUMPTO UPLOAD
  48. :UPLOAD
  49. PUTPARAM 46,0
  50. TYPE *B^M
  51. PROMPT INPUT
  52. GETSELECT TEXT
  53. GETFILE A$
  54. SENDA A$
  55. IF NO END
  56. TYPE ^C
  57. PROMPT >
  58. TYPE *S^M
  59. PROMPT ?
  60. PUTPARAM 46,1
  61. :END
  62. END
  63.